home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 95 / 095.d81 / disk menu / disk menu.0829 / disk menu.a7ae (.txt)
Encoding:
Commodore BASIC  |  1992-01-01  |  48.7 KB  |  16 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 6 open2,dv,2:close2:ifstthen110
  3. 10 print"[147][158]":poke53281,0:poke53280,0
  4. 15 sys49152+27,0,"[204][207][193][196][211][212][193][210] [196]isk [205]enu"
  5. 20 sys49152+27,24,"[159][208]lease [211]elect [208]rogram [212]o [204]oad"
  6. 30 sys49152+15,0,39,2,22,102,14:sys49152+15,9,28,4,21,255,6
  7. 60 sys49152,"$:*=p",dv,53248,10,3,14,13,1:print:ifval(e$)orf$=""then110
  8. 70 poke781,24:sys59903:sys49152+27,24,"[204][207][193][196]ing "+f$
  9. 80 sys49152+15,0,39,0,23,32,0
  10. 100 sys49152+33,f$,dv:end
  11. 110 sys49152+15,0,39,0,24,255,11:print"
  12. 115 [158]49152[170]27,1," str$rive 8-16? (8/9/0/1/2/3/4/5/6) ":[151]198,0:[146]198,15:[161]a$
  13. 118 [139][197](a$)[179]8[167]a$[178][196]([197](a$)[170]10)
  14. 120 [139][197](a$)[177]17[167]110
  15. 130 [151]186,[197](a$):[138]
  16.